* lisp/simple.el (open-line): `newline' may strip trailing space.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd783f2231c6d6dbeebef44ae800370957688744..24138dfc47119f70f6ab20529cdab094d26639b3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (open-line): `newline' may strip trailing space.
+
 2010-11-12  Kevin Ryde  <user42@zip.com.au>
 
        * international/mule-cmds.el (princ-list): Use mapc.

diff --git a/lisp/simple.el b/lisp/simple.el
index 329284807d25091d26bdf0bda5a07913a69ace3b..510fb4a3b235e0d6ddeba43e8a4b279ec3e9a1be 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -512,7 +512,7 @@ With arg N, insert N newlines."
   (interactive "*p")
   (let* ((do-fill-prefix (and fill-prefix (bolp)))
         (do-left-margin (and (bolp) (> (current-left-margin) 0)))
-        (loc (point))
+        (loc (point-marker))
         ;; Don't expand an abbrev before point.
         (abbrev-mode nil))
     (newline n)